home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zd.d64 / proc.fontex < prev    next >
Text File  |  2007-03-01  |  1KB  |  55 lines
  1. 0010 // ╘HIS PROCEDURE CAN BE USED IN
  2. 0020 // THE BIG ├╧═┴╠ DEMO PROGRAM
  3. 0030 // FROM ╒NI├OMAL AS AN EXAMPLE
  4. 0040 // OF THE PACKAGE ╞╧╬╘.
  5. 0050 
  6. 0060 // WRITTEN BY ─ICK ╦LINGENS
  7. 0070 // ─UTCH ├╧═┴╠ ╒SERS ╟ROUP
  8. 0080 
  9. 0090 ╨╥╧├ FONTEX 
  10. 0100   HEAD(BLUE,YELLOW,"╞╧╬╘ EXAMPLE:")
  11. 0110   TYPE("╒╙┼ FONT")
  12. 0120   TYPE("─╔═ IM$ ╧╞ 8")
  13. 0130   TYPE("KAR:=65; SET:=3")
  14. 0140   TYPE("GETCHARACTER(SET,KAR,IM$)")
  15. 0150   TYPE("╞╧╥ I:=1 ╘╧ 8 ─╧")
  16. 0160   TYPE(" BIT$:=BINAR$(╧╥─(IM$(I)))")
  17. 0170   TYPE(" ╨╥╔╬╘ BIT$")
  18. 0180   TYPE("┼╬─╞╧╥ I")
  19. 0190   TYPE("")
  20. 0200   TYPE("╞╒╬├ BINAR$(N) ├╠╧╙┼─")
  21. 0210   TYPE(" ─╔═ RES$ ╧╞ 8")
  22. 0220   TYPE(" RES$:=""........""")
  23. 0230   TYPE(" BIT:=1")
  24. 0240   TYPE(" ╞╧╥ T:=8 ╘╧ 1 ╙╘┼╨ -1 ─╧")
  25. 0250   TYPE("  ╔╞ N ┬╔╘┴╬─ BIT>0 ╘╚┼╬ RES$(T):=""╪""")
  26. 0260   TYPE("  BIT:+BIT")
  27. 0270   TYPE(" ┼╬─╞╧╥ T")
  28. 0280   TYPE(" ╥┼╘╒╥╬ RES$")
  29. 0290   TYPE("┼╬─╞╒╬├ BINAR$")
  30. 0300   
  31. 0310   SHOWFONT
  32. 0320   
  33. 0330   ╨╥╧├ SHOWFONT 
  34. 0340     ╒╙┼ FONT
  35. 0350     ─╔═ IM$ ╧╞ 8
  36. 0360     KAR:=65; SET:=3
  37. 0370     GETCHARACTER(SET,KAR,IM$)
  38. 0380     ╞╧╥ I:=1 ╘╧ 8 ─╧
  39. 0390       BIT$:=BINAR$(╧╥─(IM$(I)))
  40. 0400       PLOTTEXT(210,180-I*8,BIT$)
  41. 0410     ┼╬─╞╧╥ I
  42. 0420     //
  43. 0430     ╞╒╬├ BINAR$(N) ├╠╧╙┼─
  44. 0440       ─╔═ RES$ ╧╞ 8
  45. 0450       RES$:="........"
  46. 0460       BIT:=1
  47. 0470       ╞╧╥ T:=8 ╘╧ 1 ╙╘┼╨ -1 ─╧
  48. 0480         ╔╞ N ┬╔╘┴╬─ BIT>0 ╘╚┼╬ RES$(T):="╪"
  49. 0490         BIT:+BIT
  50. 0500       ┼╬─╞╧╥ T
  51. 0510       ╥┼╘╒╥╬ RES$
  52. 0520     ┼╬─╞╒╬├ BINAR$
  53. 0530   ┼╬─╨╥╧├ SHOWFONT
  54. 0540 ┼╬─╨╥╧├ FONTEX
  55.